home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zc.d64 / proc.extnd'sound < prev    next >
Text File  |  2007-03-01  |  653b  |  31 lines
  1. 0010 
  2. 0020 ╨╥╧├ MIX(VO#,MA#) ├╠╧╙┼─
  3. 0030   ╔╞ VO#>=1 ┴╬─ VO#<3 ╘╚┼╬
  4. 0040     VO#:-1
  5. 0050     ╔╞ MA#>=1 ┴╬─ MA#<=4 ╘╚┼╬
  6. 0060       MA#:=2^(MA#-1)*16
  7. 0070       P#:=╨┼┼╦($C300+VO#) ┬╔╘╧╥ MA#
  8. 0080       ╨╧╦┼ $D404+7*VO#,P#
  9. 0090     ┼╠╙┼ 
  10. 0100       ╥┼╨╧╥╘ 5
  11. 0110     ┼╬─╔╞ 
  12. 0120   ┼╠╙┼ 
  13. 0130     ╥┼╨╧╥╘ 5
  14. 0140   ┼╬─╔╞ 
  15. 0150 ┼╬─╨╥╧├ MIX
  16. 0160 
  17. 0170 ╞╒╬├ SOUNDINQ(X#) ├╠╧╙┼─
  18. 0180   ╔╞ X#>=0 ┴╬─ X#<=4 ╘╚┼╬
  19. 0190     ╥┼╘╒╥╬ ╨┼┼╦($C300+X#)
  20. 0200   ┼╠╙┼ 
  21. 0210     ╥┼╨╧╥╘ 5
  22. 0220   ┼╬─╔╞ 
  23. 0230 ┼╬─╞╒╬├ SOUNDINQ
  24. 0240 
  25. 0250 // X#=0 CONTROL REG VOICE 1
  26. 0260 // X#=1 CONTROL REG VOICE 2
  27. 0270 // X#=2 CONTROL REG VOICE 3
  28. 0280 // X#=3 RES/FILT
  29. 0290 // X#=4 MODE/VOL
  30. 0300 
  31.